﻿Public Module modGlobal

    Public Const MyStockDataFile As String = "MyStocks.bin"

    Public g_MyStocks As System.Collections.ObjectModel.Collection(Of clsMyStockInfo) 'my hold stocks
    Public g_webInterface As Library.clsWebInterface



    Public Function GetStockNameByID(ByVal strStockID As String) As String
        If strStockID Is Nothing Then Return String.Empty
        If strStockID.Length <> 6 Then Return String.Empty

        Dim WebInterface As New clsWebInterface(strStockID)
        If WebInterface.GetStockData Then
            Return WebInterface.StockInfo.StockName
        Else
            Return String.Empty
        End If

    End Function

   
End Module
